-- background: 3816 from stack: in.0(ÉxÅ[É^î≈)
-- bmap block id: 3983
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openCard
  hide menubar
  set the loc of bkgnd button "menubar" to 256,6
  set the hilite of bkgnd button "menubar" to true
end openCard

on moveLevel
  get the loc of target
  put item 1 of it into X1
  put item 2 of it into Y1
  get the rect of card field "LevelF"
  put item 1 of it into Xmin
  put item 3 of it into Xmax

  repeat while true
    if the mouse is up
    then
    exit moveLevel
  else
    get the mouseLoc
    put item 1 of it into X2
    put item 2 of it into Y2
    if X2>Xmax
    then
    put Xmax into X2
    set the loc of target to X2,Y1
  end if
  if X2<Xmin
  then
  put Xmin into X2
  set the loc of target to X2,Y1
end if
set the loc of target to X2,Y1
end if
end repeat
end moveLevel







-- part 1 (button)
-- low flags: 00
-- high flags: C004
-- rect: left=0 top=0 right=12 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: menubar
----- HyperTalk script -----
on mouseUp
  get the loc of target
  put item 1 of it into X
  put item 2 of it into Y

  if the hilite of target  is true
  then
  show menubar
  set the loc of bkgnd button "menubar" to 256,25
  set the hilite of target to false
else
  hide menubar
  set the loc of bkgnd button "menubar" to 256,6
  set the hilite of target to true
end if
end mouseUp



-- part 2 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=2 top=67 right=339 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Idea Text


-- part 3 (button)
-- low flags: 00
-- high flags: 2001
-- rect: left=465 top=306 right=332 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ‚à‚Ç‚è
----- HyperTalk script -----
on mouseUp
  visual effect  barn door close
  go back
end mouseUp